lisp/help.el (help-form-show): Improve last change (bug#77118)

Fill the buffer from within the `with-output-to-temp-buffer`, as before.

diff --git a/lisp/help.el b/lisp/help.el
index a06679b31f5d462cddae02f936105bc8a8942ca5..5cd97897767bda317ffed1fac967bd9e33ae3e86 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -2262,13 +2262,11 @@ The `temp-buffer-window-setup-hook' hook is called."
   "Display the output of a non-nil `help-form'."
   (let ((msg (eval help-form t)))
     (if (stringp msg)
-       (let ((bufname " *Char Help*"))
-          (with-output-to-temp-buffer bufname)
+       (with-output-to-temp-buffer " *Char Help*"
           ;; Use `insert' instead of `princ' so that keys in `help-form'
           ;; are displayed with `help-key-binding' face (bug#77118).
-          (with-current-buffer bufname
-            (let (buffer-read-only)
-              (insert msg)))))))
+          (with-current-buffer standard-output
+            (insert msg))))))
 
 (defun help--append-keystrokes-help (str)
   (let* ((keys (this-single-command-keys))